Received: from svcs1.digex.net (svcs1.digex.net [204.91.197.224])
by mail4.access.digex.net (8.8.5/8.8.5) with ESMTP id WAA03230
for <mcox@access.digex.net>; Tue, 14 Oct 1997 22:14:50 -0400 (EDT)
Received: (from daemon@localhost)
by svcs1.digex.net (8.8.5/8.8.5) id UAA06524
for amos-out; Tue, 14 Oct 1997 20:42:43 -0400 (EDT)
Received: from mail3.access.digex.net (mail3.access.digex.net [205.197.247.4])
by svcs1.digex.net (8.8.5/8.8.5) with ESMTP id UAA06521
for <amos-list@svcs1.digex.net>; Tue, 14 Oct 1997 20:42:42 -0400 (EDT)
Received: from ulster.net (root@marvin.ulster.net [208.148.73.5])
by mail3.access.digex.net (8.8.5/8.8.5) with ESMTP id UAA22796
for <amos-list@access.digex.net>; Tue, 14 Oct 1997 20:42:41 -0400 (EDT)
Received: from mhv.net (root@spice.mhv.net [199.0.0.21]) by ulster.net (8.8.5/8.7.3) with ESMTP id UAA07650 for <amos-list@access.digex.net>; Tue, 14 Oct 1997 20:48:42 -0400
Received: from mike (port132.ulster.net [208.148.73.152]) by mhv.net (8.8.5/8.7.3) with SMTP id UAA31477 for <amos-list@access.digex.net>; Tue, 14 Oct 1997 20:42:35 -0400
Message-ID: <3444112E.191D@mhv.net>
Date: Tue, 14 Oct 1997 20:41:19 -0400
From: Michael Drummond <miked@mhv.net>
X-Mailer: Mozilla 3.0 (Win95; U)
MIME-Version: 1.0
To: amos-list@access.digex.net
Subject: Re: Amos & Midi
References: <0002BEB6.@modusmedia.com>
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Status: O
X-Status:
Declan_Gorman@modusmedia.com wrote:
> A couple of questions....
> i) Is there an Amos extension that supports Midi?
> ii) Has anyone on the list written any Midi routines using Amos?
> iii) Where can I get some technical documentation on how to address
> Midi hardware?
i)
Nah, but you can put MIDI in OctaMed & use Med Midi On
ii)
Rem Exec 'run "mydrive:tripleplayplus/other sequencers/triple play
plus"'
'only if you've got B&P Triple Play - run once, then re-Rem
Serial Open 0,0 : Serial Speed 0,31250
Serial Bits 0,8,1 : Serial Parity 0,-1 : Serial X 0,-1
Wait Vbl
For N=0 To 12
Serial Send 0,Chr$($90)+Chr$(N+60)+Chr$(127)
wait 5
Serial Send 0,Chr$($80)+Chr$(N+60)+Chr$(0)
Next
'Play a chromatic scale from C5 to C6
Serial Send 0,Chr$($B0)+Chr$(123)+Chr$(0) : Wait Vbl